Xbasic
a5queueing::queueEnqueueBatch Method
Syntax
.EnqueueBatch as A5Storage::CallResult (items as A5Queueing::QueueItems)
Arguments
- itemsA5Queueing::QueueItems
List of queue items.
Returns
- resultA5Storage::CallResult
Call result.
Description
Enqueue many items to a queue at once.
Example
dim messageNo as n = 0 dim qm as A5Queueing::Queue = null_value() dim Batch as A5Queueing::Items = new A5Queueing::Items() if A5Queueing::Queue::Open(qm,"Provider='RabbitMQ';Host='localhost';Queue='TestQ';").success then for i = 1 to 100 currentitem = qm.CreateQueueItem() messageNo = messageNo + 1 currentitem.Body = "Test Message "+messageNo Batch.Add(currentitem) next callresult = qm.EnqueueBatch(Batch) if callresult.Error then ui_msg_box("Error",callresult.MessageToDisplay) end if end if